tcolor
Otázka od: pavel.sl@centrum.cz
5. 9. 2002 22:17
Zdravim,
nevim si s necim rady.
V promene mam nazev barvy,
treba
barva:=red;
a chci priradit do label1.font.color.
Vse jsem provadel:
label1.font.color:=tcolor('cl'+barva);
Kompilator to sice veme, ale vysledna barva textu je vselijaka.
Nevite, co s tim.
Diky
Pavel
--------------------
ZDARMA a RYCHLÉ zasílání SMS z www.posliSMS.cz
Odpovedá: Petr Brant
5. 9. 2002 23:23
Takhle se to v zadnem pripade delat nemuze. Slovo 'clred' se nejak zahadne
pretypuje na TColor a Windows z toho nejakou barvu udelaji, ale s konstantou
clRed to nema nic spolecneho. Pokud bys chtel opravdu delat barvu z nazvu,
tak treba pres vyctovy typ, napr.
type TMojeBarvy = (mbRed, mbBlue, ...)
a pak nekde psat
var MojeBarvy: TMojeBarvy;
...
MojeBarvy:= mbRed;// a podobne
...
case MojeBarvy of
mbRed: begin
label1.font.color:= clRed;
....
end;
...
end;
nebo nejak podobne, to zalezi na podminkach. Ale v zadnem pripade tak, jak
to bylo popsane.
RNDr. Petr Brant [brant@dcomm.cz]
http://web.redbox.cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunovační 6
170 00 Praha 7
> Subject: tcolor
>
> nevim si s necim rady.
> V promene mam nazev barvy,
> treba
>
> barva:=red;
>
> a chci priradit do label1.font.color.
>
> Vse jsem provadel:
>
> label1.font.color:=tcolor('cl'+barva);
>
>
> Kompilator to sice veme, ale vysledna barva textu je vselijaka.
Odpovedá: Petr Vones
5. 9. 2002 22:18
From: <pavel.sl@centrum.cz>
> a chci priradit do label1.font.color.
>
> Vse jsem provadel:
>
> label1.font.color:=tcolor('cl'+barva);
Label1.Font.Color := clBlack;
Petr Vones
Odpovedá: Daniel Rott
6. 9. 2002 2:00
> V promene mam nazev barvy,
> barva:=red;
???
> a chci priradit do label1.font.color.
> label1.font.color:=tcolor('cl'+barva);
> Kompilator to sice veme, ale vysledna barva textu je vselijaka.
To si pretypoval dva absolutne ruzne typy.
Jestli chces prevadet text na barvu, tak se koukni na funkci
function StringToColor(const S: string): TColor;
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.